home *** CD-ROM | disk | FTP | other *** search
/ iBrowse Update Disc / iBrowse Update Disc.iso / distrib / boot / !Boot / RO370Hook / Printers / ps / Feeds / Canon / 3Mixed < prev    next >
Text File  |  1995-07-17  |  661b  |  20 lines
  1. %%RISCOS_FeedName: Headed first sheet then plain
  2. /PrintDict 5 dict def PrintDict begin
  3. /headcount 1 def % change this to the number of headed pages required
  4. /selectheaded {statusdict begin 1 setpapertray end (\nSelecting Headed \(lower\) paper tray) print flush} bind def
  5. /selectplain {statusdict begin 2 setpapertray end (\nSelecting Plain \(upper\) paper tray) print flush} bind def
  6. statusdict begin false setduplexmode end
  7. selectheaded
  8. end
  9.  
  10. /showpage
  11. {
  12.   showpage
  13.   PrintDict /headcount 2 copy get 1 sub
  14.   dup 4 1 roll put 0 eq
  15.   {
  16.     statusdict begin false setduplexmode newsheet end
  17.     PrintDict /selectplain get exec
  18.   } if
  19. } bind userdict 3 1 roll put
  20.